home *** CD-ROM | disk | FTP | other *** search
/ WAVs MIDIs & RealAudio / WAVs MIDIs & RealAudio.iso / pc / WaVGet for mIRC / wavget32v17i.exe / wavget.VSC < prev    next >
Encoding:
Text File  |  1998-01-14  |  1.6 KB  |  59 lines
  1. // WAVGET.VSC - wavget 0.2
  2. // Developed under Visual IRC '97 1.00
  3.  
  4. Name wavget 0.2
  5.  
  6. // Aliases
  7.  
  8. Alias WAVGET
  9.   /exec c:\wavget\wavget32.exe
  10. EndAlias
  11.  
  12. // Events
  13.  
  14. Event <OnDCCSendDisconnect> "*"
  15.   // Fired when a DCC Send session disconnects.
  16.   // The nick is in $0. The filename is in $1-.
  17.   // $2 contains 1 if the transfer completed successfully, 0 otherwise.
  18.   
  19.   TextOut ecCTCP *** Send completed: !:rmsg $0 $1-
  20.   dde wavget32 form1 text1 !:rmsg $0 $1
  21. EndEvent
  22.  
  23. Event <OnDCCGetDisconnect> "*"
  24.   // Fired when a DCC Get session disconnects.
  25.   // The nick is in $0. The filename is in $1-.
  26.   // $2 contains 1 if the transfer completed successfully, 0 otherwise.
  27.   
  28.   TextOut ecCTCP *** Get completed: !:rcvd $0 $1-
  29.   dde wavget32 form1 text1 !:rcvd $0 $1
  30. EndEvent
  31.  
  32. Event ChannelMessage "* PRIVMSG #*"
  33.   TextOut > $2 ecChanText <\b$nick\b>\t$StrTrim($3-)
  34.   //If ([$3] == [:!nd3])
  35.   If ([$3] == [:!$N])
  36.      dde wavget32 form1 text1 !:send $nick $4 ?0 0
  37.      TextOut > $2 ecChanText $nick requested $4: !:send $nick $4 ?0 0
  38.   Endif
  39.   
  40. EndEvent
  41.  
  42. Event CTCP "* PRIVMSG * :\A*"
  43.   //TextOut ecCTCP *** Received CTCP $Upper($StrTrim($3)) from \b$nick\b: $4-
  44.   
  45.   if ([$StrTrim($3)] == [mp3]) || ([$StrTrim($3)] == [sound])
  46.      dde wavget32 form1 text1 !$nick $4
  47.      TextOut > $2 ecChanText * \b$nick\b $5-
  48.   else
  49.      if ([$StrTrim($3)] == [smsg])
  50.         dde wavget32 form1 text1 !:smsg $4-
  51.         TextOut ecCTCP * Received PlayMessage from \b$nick\b: $4-
  52.      else
  53.         TextOut ecCTCP * Received CTCP $Upper($StrTrim($3)) from \b$nick\b: $4-
  54.      endif
  55.   endif
  56.   
  57. EndEvent
  58.  
  59.